/ QuickTime - The Beta Release / QuickTime - The Beta Release.iso / Programming Stuff / Human Interface / Human Interface Demos / PICTcompressor Demo / PICTcompressor Demo.rsrc / STXT_1068

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 0c 00 00 06 51 | 00 00 00 b6 2d 2d 20 43 |.......Q|....-- C|
|00000010| 6f 6d 70 72 65 73 73 69 | 6f 6e 20 6d 65 74 68 6f |ompressi|on metho|
|00000020| 64 73 20 70 6f 70 75 70 | 20 6d 65 6e 75 0d 6d 61 |ds popup| menu.ma|
|00000030| 63 72 6f 20 69 6e 69 74 | 50 6f 70 4d 65 6e 75 0d |cro init|PopMenu.|
|00000040| 20 20 20 20 6f 70 65 6e | 58 4c 69 62 20 20 22 50 |    open|XLib  "P|
|00000050| 6f 70 55 70 20 4d 65 6e | 75 20 58 4f 62 6a 22 20 |opUp Men|u XObj" |
|00000060| 20 20 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |  .    s|et the i|
|00000070| 6d 6d 65 64 69 61 74 65 | 20 6f 66 20 73 70 72 69 |mmediate| of spri|
|00000080| 74 65 20 31 36 20 74 6f | 20 54 52 55 45 0d 20 20 |te 16 to| TRUE.  |
|00000090| 20 20 4d 61 6b 65 50 6f | 70 41 6c 70 68 61 0d 0d |  MakePo|pAlpha..|
|000000a0| 2d 2d 20 72 65 74 75 72 | 6e 20 74 65 78 74 20 70 |-- retur|n text p|
|000000b0| 6f 70 55 70 20 6d 65 6e | 75 0d 6d 61 63 72 6f 20 |opUp men|u.macro |
|000000c0| 4d 61 6b 65 50 6f 70 41 | 6c 70 68 61 0d 20 20 20 |MakePopA|lpha.   |
|000000d0| 20 67 6c 6f 62 61 6c 20 | 20 50 6f 70 41 6c 70 68 | global | PopAlph|
|000000e0| 61 0d 20 20 20 20 69 66 | 20 6f 62 6a 65 63 74 50 |a.    if| objectP|
|000000f0| 28 20 50 6f 70 41 6c 70 | 68 61 20 29 20 74 68 65 |( PopAlp|ha ) the|
|00000100| 6e 20 50 6f 70 41 6c 70 | 68 61 28 20 6d 44 69 73 |n PopAlp|ha( mDis|
|00000110| 70 6f 73 65 20 29 0d 20 | 20 20 20 73 65 74 20 6d |pose ). |   set m|
|00000120| 65 6e 75 4c 69 73 74 20 | 3d 20 74 68 65 20 74 65 |enuList |= the te|
|00000130| 78 74 20 6f 66 20 63 61 | 73 74 20 41 36 35 20 20 |xt of ca|st A65  |
|00000140| 20 2d 2d 6d 65 6e 75 20 | 63 6f 6e 74 65 6e 74 73 | --menu |contents|
|00000150| 20 20 20 20 0d 2d 2d 20 | 42 65 20 73 75 72 65 20 |    .-- |Be sure |
|00000160| 74 6f 20 73 65 74 20 70 | 61 72 61 6d 65 74 65 72 |to set p|arameter|
|00000170| 20 74 68 69 6e 67 4e 75 | 6d 20 66 6f 72 20 50 6f | thingNu|m for Po|
|00000180| 70 4e 75 6d 20 6f 72 20 | 20 74 6f 20 7a 65 72 6f |pNum or | to zero|
|00000190| 2e 0d 20 20 20 20 73 65 | 74 20 50 6f 70 41 6c 70 |..    se|t PopAlp|
|000001a0| 68 61 20 3d 20 50 6f 70 | 4d 65 6e 75 28 6d 4e 65 |ha = Pop|Menu(mNe|
|000001b0| 77 2c 6d 65 6e 75 4c 69 | 73 74 2c 20 32 31 36 29 |w,menuLi|st, 216)|
|000001c0| 0d 0d 20 20 20 20 69 66 | 20 6e 6f 74 20 6f 62 6a |..    if| not obj|
|000001d0| 65 63 74 50 28 20 50 6f | 70 41 6c 70 68 61 20 29 |ectP( Po|pAlpha )|
|000001e0| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 20 20 61 | then . |       a|
|000001f0| 6c 65 72 74 20 22 50 6f | 70 4d 65 6e 75 20 4f 62 |lert "Po|pMenu Ob|
|00000200| 6a 65 63 74 20 6e 6f 74 | 20 6d 61 64 65 3a 20 22 |ject not| made: "|
|00000210| 20 26 20 73 74 72 69 6e | 67 28 20 50 6f 70 41 6c | & strin|g( PopAl|
|00000220| 70 68 61 20 29 0d 20 20 | 20 20 65 6e 64 20 69 66 |pha ).  |  end if|
|00000230| 0d 0d 20 20 20 20 2d 2d | 20 74 6f 20 73 65 74 20 |..    --| to set |
|00000240| 61 75 74 6f 6d 61 74 69 | 63 20 72 65 6d 65 6d 62 |automati|c rememb|
|00000250| 65 72 69 6e 67 20 6f 66 | 20 6c 61 73 74 20 74 68 |ering of| last th|
|00000260| 69 6e 67 20 73 65 6c 65 | 63 74 65 64 2e 20 20 0d |ing sele|cted.  .|
|00000270| 20 20 20 20 50 6f 70 41 | 6c 70 68 61 28 6d 53 6d |    PopA|lpha(mSm|
|00000280| 61 72 74 2c 20 31 20 29 | 0d 0d 0d 6d 61 63 72 6f |art, 1 )|...macro|
|00000290| 20 43 6f 6d 70 72 65 73 | 73 20 20 20 20 2d 2d 20 | Compres|s    -- |
|000002a0| 20 61 20 70 6f 70 20 75 | 70 20 6d 65 6e 75 20 72 | a pop u|p menu r|
|000002b0| 65 74 75 72 6e 69 6e 67 | 20 74 68 69 6e 67 20 74 |eturning| thing t|
|000002c0| 65 78 74 0d 20 20 20 20 | 67 6c 6f 62 61 6c 20 20 |ext.    |global  |
|000002d0| 50 6f 70 41 6c 70 68 61 | 0d 20 20 20 20 73 65 74 |PopAlpha|.    set|
|000002e0| 20 73 48 20 3d 20 74 68 | 65 20 6c 65 66 74 20 6f | sH = th|e left o|
|000002f0| 66 20 73 70 72 69 74 65 | 20 31 36 20 2b 20 74 68 |f sprite| 16 + th|
|00000300| 65 20 73 74 61 67 65 4c | 65 66 74 20 2b 20 31 0d |e stageL|eft + 1.|
|00000310| 20 20 20 20 73 65 74 20 | 73 56 20 3d 20 74 68 65 |    set |sV = the|
|00000320| 20 74 6f 70 20 6f 66 20 | 73 70 72 69 74 65 20 31 | top of |sprite 1|
|00000330| 36 20 2b 20 74 68 65 20 | 73 74 61 67 65 54 6f 70 |6 + the |stageTop|
|00000340| 20 2b 20 31 0d 0d 20 20 | 20 20 73 65 74 20 72 65 | + 1..  |  set re|
|00000350| 73 75 6c 74 20 3d 20 50 | 6f 70 41 6c 70 68 61 28 |sult = P|opAlpha(|
|00000360| 6d 50 6f 70 54 65 78 74 | 2c 20 73 48 2c 20 73 56 |mPopText|, sH, sV|
|00000370| 2c 20 30 29 0d 20 20 20 | 20 69 66 20 72 65 73 75 |, 0).   | if resu|
|00000380| 6c 74 20 3d 20 22 66 6f | 6f 62 61 68 22 20 74 68 |lt = "fo|obah" th|
|00000390| 65 6e 20 0d 20 20 20 20 | 20 20 20 20 20 69 66 20 |en .    |     if |
|000003a0| 6f 62 6a 65 63 74 50 28 | 20 50 6f 70 41 6c 70 68 |objectP(| PopAlph|
|000003b0| 61 20 29 20 74 68 65 6e | 20 50 6f 70 41 6c 70 68 |a ) then| PopAlph|
|000003c0| 61 28 20 6d 44 69 73 70 | 6f 73 65 20 29 0d 20 20 |a( mDisp|ose ).  |
|000003d0| 20 20 73 65 74 20 6d 65 | 6e 75 4c 69 73 74 20 3d |  set me|nuList =|
|000003e0| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 63 61 73 | the tex|t of cas|
|000003f0| 74 20 41 36 35 20 20 20 | 0d 2d 2d 20 42 65 20 73 |t A65   |.-- Be s|
|00000400| 75 72 65 20 74 6f 20 73 | 65 74 20 70 61 72 61 6d |ure to s|et param|
|00000410| 65 74 65 72 20 74 68 69 | 6e 67 4e 75 6d 20 66 6f |eter thi|ngNum fo|
|00000420| 72 20 50 6f 70 4e 75 6d | 20 6f 72 20 50 6f 70 54 |r PopNum| or PopT|
|00000430| 65 78 74 20 74 6f 20 7a | 65 72 6f 2e 0d 20 20 20 |ext to z|ero..   |
|00000440| 20 73 65 74 20 50 6f 70 | 41 6c 70 68 61 20 3d 20 | set Pop|Alpha = |
|00000450| 50 6f 70 4d 65 6e 75 28 | 6d 4e 65 77 2c 6d 65 6e |PopMenu(|mNew,men|
|00000460| 75 4c 69 73 74 2c 20 32 | 31 36 29 0d 0d 20 20 20 |uList, 2|16)..   |
|00000470| 20 69 66 20 6e 6f 74 20 | 6f 62 6a 65 63 74 50 28 | if not |objectP(|
|00000480| 20 50 6f 70 41 6c 70 68 | 61 20 29 20 74 68 65 6e | PopAlph|a ) then|
|00000490| 20 0d 20 20 20 20 20 20 | 20 20 61 6c 65 72 74 20 | .      |  alert |
|000004a0| 22 50 6f 70 4d 65 6e 75 | 20 4f 62 6a 65 63 74 20 |"PopMenu| Object |
|000004b0| 6e 6f 74 20 6d 61 64 65 | 3a 20 22 20 26 20 73 74 |not made|: " & st|
|000004c0| 72 69 6e 67 28 20 50 6f | 70 41 6c 70 68 61 20 29 |ring( Po|pAlpha )|
|000004d0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 0d 20 20 20 |.    end| if..   |
|000004e0| 20 2d 2d 20 74 6f 20 73 | 65 74 20 61 75 74 6f 6d | -- to s|et autom|
|000004f0| 61 74 69 63 20 72 65 6d | 65 6d 62 65 72 69 6e 67 |atic rem|embering|
|00000500| 20 6f 66 20 6c 61 73 74 | 20 74 68 69 6e 67 20 73 | of last| thing s|
|00000510| 65 6c 65 63 74 65 64 2e | 20 20 0d 20 20 20 20 50 |elected.|  .    P|
|00000520| 6f 70 41 6c 70 68 61 28 | 6d 53 6d 61 72 74 2c 20 |opAlpha(|mSmart, |
|00000530| 31 20 29 0d 0d 20 20 20 | 20 20 20 20 20 73 65 74 |1 )..   |     set|
|00000540| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 63 61 73 | the tex|t of cas|
|00000550| 74 20 41 33 31 20 74 6f | 20 22 22 0d 0d 20 20 20 |t A31 to| ""..   |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 67 6f 20 74 |        |    go t|
|00000570| 6f 20 6c 61 62 65 6c 28 | 31 29 0d 20 20 20 20 20 |o label(|1).     |
|00000580| 20 20 20 65 78 69 74 0d | 20 20 20 65 6e 64 20 69 |   exit.|   end i|
|00000590| 66 0d 0d 2d 2d 52 65 70 | 6c 61 63 65 73 20 74 68 |f..--Rep|laces th|
|000005a0| 65 20 64 65 66 61 75 6c | 74 20 6c 61 62 65 6c 20 |e defaul|t label |
|000005b0| 77 69 74 68 20 61 20 6d | 65 6e 75 20 73 65 6c 65 |with a m|enu sele|
|000005c0| 63 74 69 6f 6e 0d 20 20 | 20 69 66 20 73 74 72 69 |ction.  | if stri|
|000005d0| 6e 67 28 20 72 65 73 75 | 6c 74 20 29 20 3d 20 22 |ng( resu|lt ) = "|
|000005e0| 22 20 74 68 65 6e 20 65 | 78 69 74 0d 20 20 20 20 |" then e|xit.    |
|000005f0| 65 6c 73 65 20 73 65 74 | 20 74 68 65 20 74 65 78 |else set| the tex|
|00000600| 74 20 6f 66 20 63 61 73 | 74 20 41 31 37 20 74 6f |t of cas|t A17 to|
|00000610| 20 22 20 20 20 22 20 26 | 20 73 74 72 69 6e 67 28 | "   " &| string(|
|00000620| 20 72 65 73 75 6c 74 20 | 29 0d 0d 20 20 20 20 69 | result |)..    i|
|00000630| 66 20 74 68 65 20 46 72 | 61 6d 65 3e 34 30 30 20 |f the Fr|ame>400 |
|00000640| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 65 78 69 74 |then.   |    exit|
|00000650| 0d 20 20 20 20 20 65 6e | 64 20 69 66 0d 00 09 00 |.     en|d if....|
|00000660| 00 00 00 00 0c 00 0a 00 | 03 00 00 00 09 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 28 00 | 0c 00 0a 00 03 01 00 00 |......(.|........|
|00000680| 09 00 00 00 00 00 00 00 | 00 00 33 00 0c 00 0a 00 |........|..3.....|
|00000690| 03 00 00 00 09 00 00 00 | 00 00 00 00 00 00 86 00 |........|........|
|000006a0| 0c 00 0a 00 03 01 00 00 | 09 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 00 92 00 0c 00 0a 00 | 03 00 00 00 09 00 00 00 |........|........|
|000006c0| 00 00 00 00 00 00 b3 00 | 0c 00 0a 00 03 01 00 00 |........|........|
|000006d0| 09 00 00 00 00 00 00 00 | 00 00 c0 00 0c 00 0a 00 |........|........|
|000006e0| 03 00 00 00 09 00 00 00 | 00 00 00 00 00 02 85 00 |........|........|
|000006f0| 0c 00 0a 00 03 01 00 00 | 09 00 00 00 00 00 00 00 |........|........|
|00000700| 00 02 8d 00 0c 00 0a 00 | 03 00 00 00 09 00 00 00 |........|........|
|00000710| 00 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+